MacFormat 1995 May/macformat-024.iso/Shareware City/Graphics/EPS Fixer 1.5/Scripting EPS Fixer/Set PICT to bounding box (Text)

Text File | 1995-01-22 | 392 b | 17 lines | [TEXT/ToyS]

on open theList
    tell application "EPS Fixer"
        set openStatus to uponOpening
        set uponOpening to do nothing
        activate
        repeat with theFile in theList
            open theFile
            tell document frontWindowName
                set PICT rectangle to bounding box
                save document frontWindowName
                close document frontWindowName
            end tell
        end repeat
        set uponOpening to openStatus
    end tell
    quit
end open